-- card: 3775 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 2624
-- name: master


-- part 1 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=172 top=296 right=317 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 14
-- style flags: 256
-- line height: 17
-- part name: Title


-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=437 top=296 right=317 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 17
-- part name: Date


-- part 3 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=172 top=319 right=340 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 17
-- part name: Artist(s)


-- part 4 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=437 top=319 right=340 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 17
-- part name: Price


-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=293 right=337 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 18
-- style flags: 10496
-- line height: 19
-- part name: 


-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=80 top=296 right=317 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 23668 / 23668
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual iris close
  go home
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=103 top=319 right=340 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 6033 / 6033
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Catalogue
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then doCatalog
  else
    lock screen
    put the script of bg id 2624 into theList
    ShowDialog 7,5002,prompt,geneva,9,theList,0,"one",61,29
    if the result is empty then exit mouseUp
    put line 2 of the result into theTarget
    go cd theTarget
    unlock screen with dissolve
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=80 top=319 right=340 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 11987 / 11987
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  put "How would you like to sort phantomGallery's catalogue?" into promptStr
  ShowDialog 1,2222,promptStr,TRUE
  if the result=1 then
    sort by word 1 of cd fld "Title"
    doCatalog
  else if the result=3 then
    sort by cd fld "Date"
    doCatalog
  end if
end mouseUp


-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=149 top=319 right=340 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 4349 / 4349
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
  CreditsDialog 5118,20021,20022
end mouseUp


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=103 top=296 right=317 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 29773 / 29773
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Card
----- HyperTalk script -----
on mouseUp
  lock screen
  ask "Please name the new image..." with "Image" & (the ticks)
  if it is empty then exit mouseUp
  put it into newCdName
  set cursor to busy
  push cd
  go cd 1
  doMenu "Copy Card"
  set cursor to busy
  pop cd
  doMenu "Paste Card"
  set cursor to busy
  repeat with cycle = 1 to 4
    set the lockText of cd fld cycle to false
  end repeat
  set the cantDelete of this cd to false
  choose select tool
  type "A" with cmdkey
  doMenu "Clear Picture"
  choose browse tool
  set cursor to busy
  set name of this cd to newCdName
  put newCdName into cd fld 1
  unlock screen with dissolve
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=149 top=296 right=317 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 113 / 113
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HyperScan
----- HyperTalk script -----
on mouseUp
  visual iris open
  go cd HalfTone of stack HyperScan
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=126 top=296 right=317 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 32564 / 32564
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install...
----- HyperTalk script -----
on mouseUp
  lock screen
  select bg btn "SaveToPhG"
  doMenu "Copy Button"
  go cd "HalfTone" of stack "HyperScan"
  repeat with i = 1 to the number of btns
    if short name of btn i = "SaveToPhG" then
      go back
      choose browse tool
      beep 1
      ShowDialog 1,2119,"Yow! The Save To phantomGallery... button is already there!",TRUE
      hide menuBar
      unlock screen with dissolve
      exit mouseUp
    end if
  end repeat
  doMenu "Paste Button"
  set the rect of btn "SaveToPhG" to 231,146,281,196
  choose browse tool
  set cursor to hand
  unlock screen
  get the mouseClick
  answer "drag button to a comfy spot & click."
  repeat until the mouseClick
    set loc of btn "SaveToPhG" to the mouseLoc
  end repeat
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=126 top=319 right=340 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 30903 / 30903
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  ShowDialog 5,4746,3
end mouseUp



-- part contents for card part 5
----- text -----
phantom
Gallery2

-- part contents for card part 1
----- text -----
master

-- part contents for card part 2
----- text -----
date

-- part contents for card part 3
----- text -----
artist(s)

-- part contents for card part 4
----- text -----
price